1283   // BCF STATUS, 0x5
018E   // CLRF i
018F   // CLRF 0xF
018C   // CLRF a
018D   // CLRF 0xD
018E   // CLRF i
018F   // CLRF 0xF
080F   // MOVF 0xF, W
3A80   // XORLW 0x80
00CF   // MOVWF 0x4F
3080   // MOVLW 0x80
024F   // SUBWF 0x4F, W
1D03   // BTFSS STATUS, 0x2
2BDC   // GOTO 0x3DC
3005   // MOVLW 0x5
020E   // SUBWF i, W
1C03   // BTFSS STATUS, 0x0
2BDF   // GOTO 0x3DF
2BE0   // GOTO 0x3E0
2BE2   // GOTO 0x3E2
2BFF   // GOTO 0x3FF
2BFF   // GOTO 0x3FF
3001   // MOVLW 0x1
078E   // ADDWF i, F
1803   // BTFSC STATUS, 0x0
0A8F   // INCF 0xF, F
3000   // MOVLW 0x0
078F   // ADDWF 0xF, F
080F   // MOVF 0xF, W
3A80   // XORLW 0x80
00CF   // MOVWF 0x4F
3080   // MOVLW 0x80
024F   // SUBWF 0x4F, W
1D03   // BTFSS STATUS, 0x2
2BFA   // GOTO 0x3FA
3005   // MOVLW 0x5
020E   // SUBWF i, W
1C03   // BTFSS STATUS, 0x0
2BFD   // GOTO 0x3FD
2BFE   // GOTO 0x3FE
2BE2   // GOTO 0x3E2
2BFF   // GOTO 0x3FF
1283   // BCF STATUS, 0x5
080E   // MOVF i, W
070C   // ADDWF a, W
008C   // MOVWF a
080F   // MOVF 0xF, W
1803   // BTFSC STATUS, 0x0
0A0F   // INCF 0xF, W
070D   // ADDWF 0xD, W
008D   // MOVWF 0xD
